home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO004.dsk / FILECAB.INSTR.bas < prev    next >
BASIC Source File  |  2012-02-16  |  7KB  |  96 lines
  1. 5  REM      << FILE CABINET                INSTRUCTIONS >>>
  2. 10 D$ =  CHR$(4): GOTO 510
  3. 15  PRINT : INPUT "PRESS RETURN TO CONTINUE ->";A$: RETURN 
  4. 18 :
  5. 19  REM  << MACH 4 INSTRUCTIONS >> 
  6. 20  TEXT : HOME : PRINT  TAB( 5)"FILE CABINET MACH 4  (DOS 3.3)": POKE 34,2: HOME 
  7. 35  PRINT : PRINT "THE FILE CABINET MACH4 EPSON PROGRAM IS SET UP TO BE USED  WITH THE EPSON MX-80 PRINTER.  NO CHANGES ARE REQUIRED."
  8. 45  PRINT : PRINT "THE  PRINTER  ROUTINES  ARE  LOCATED IN LINES  2000  THRU  2099, IF YOU NEED TO CHANGE  THEM  TO  A  DIFFERENT  TYPE OF PRINTER"
  9. 50  GOSUB 15: HOME 
  10. 51  PRINT "THE FILE CABINET MACH 4 EPSON PROGRAM ISBOB MATZINGER'S MACH 3 WITH DAVID       TOWNSEND'S REVISIONS TO ALLOW INPUT OF  COMMAS, ETC. INTO THE FIELDS."
  11. 52  PRINT : PRINT "THIS VERSION ALSO HAS A PRINTER FORMAT  OPTION TO PLACE BLANK LINES BETWEEN     ITEMS BEGINING WITH DIFFERENT LETTERS.";
  12. 53  PRINT "  THIS OPTION APPLIES ONLY TO THE FIRST   COLUMN OF YOUR FORMAT.  THIS COLUMN MUSTBE ALPHATYPE."
  13. 55  PRINT : PRINT "THIS MODIFICATION BY ED AYMOND 11/6/81.
  14. 56  GOSUB 15
  15. 60  HOME : PRINT "THE PROGRAM AND ALL DATA ARE MAINTAINED IN RAM MEMORY.   BECAUSE  OF  THIS, THE AMOUNT OF DATA THAT CAN BE GENERATED IS LIMITED."
  16. 70  PRINT : PRINT "ALL  ENTRIES  SHOULD BE AS SHORT AS YOU CAN MAKE THEM, 10 TO  15  CHARACTERS ON THE AVERAGE."
  17. 80  PRINT : PRINT "WHEN ENTERING THE NAME FOR A FILE (SUCH AS THE  NAME OF THE DATA BASE OR REPORT NAME), TRY  TO STAY AT 10 CHARACTERS OR LESS."
  18. 110  GOSUB 15: GOTO 510
  19. 115  REM  << MACH 5 INSTRUCTIONS >>
  20. 120  TEXT : HOME : PRINT  TAB( 5): PRINT "FILE CABINET MACH 5  (DOS 3.3)": POKE 34,2: HOME 
  21. 130  PRINT : PRINT "THE MACH 5 VERSION HAS ADDED ADDITIONAL": PRINT "PRINTER FORMAT OPTIONS TO PRINT 1, 2, 3": PRINT "4 OR 5 ENTRIES BEFORE SKIPPING A LINE"
  22. 135  PRINT "ON A REPORT.  THE MACH 5 VERSION HAS": PRINT "ALSO ADDED ADDITIONAL PLACES TO BAIL"
  23. 140  PRINT "OUT OF A TASK BACK TO THE MAIN MENU.
  24. 150  PRINT : PRINT "ANY DATA BASE AND RECORDS THAT USED AN": PRINT "OLDER VERSION OF FILE CABINET CAN BE": PRINT "USED WITH THIS VERSION, EXCEPT YOUR": PRINT "PRINTED FORMATS."
  25. 155  INVERSE : PRINT : PRINT "CAUTION, THE LAST COLUMN ON PRINTER": PRINT : PRINT "FORMATS MAY NOT APPEAR.": NORMAL : PRINT 
  26. 160  PRINT "PRINTER REPORTS MAY REQUIRE REFORMATING": PRINT "IF YOU ARE GOING TO USE THE MACH 5": PRINT "VERSION."
  27. 164  GOSUB 15
  28. 165  HOME : PRINT : PRINT "FOR ADDITIONAL INFORMATION ON CHANGES": PRINT "AND HOW TO USE FILE CABINET MACH 5,": PRINT "PLEASE READ ED AYMOND'S ARTICLE IN THE": PRINT "FEB. 1983 APPLE GRAM.  ADDITIONAL"
  29. 170  PRINT "INFORMATION AND ARTICLES WILL FOLLOW IN": PRINT "IN LATER ISSUES OF THE APPLE GRAM."
  30. 190  GOSUB 15: GOTO 510
  31. 200  HOME : VTAB 10: PRINT "1. REVIEW INSTRUCTIONS AGAIN.": PRINT "2. RUN FILE CABINET MACH 5 EPSON": PRINT "3. QUIT AND CATALOG THE DISK": PRINT 
  32. 205  INPUT "ENTER CHOICE ->";A$:A =  VAL(A$): IF A <1  OR A >3  THEN 200
  33. 210  ON A GOTO 10,220,240
  34. 220  PRINT D$"RUN FILE CABINET MACH 5 EPSON": END 
  35. 240  TEXT : HOME : PRINT D$"CATALOG": END 
  36. 300  REM 
  37. 310  REM FILE CABINET MACH4 INSTR
  38. 320  REM BY ED AYMOND
  39. 330  REM MODIFIED BY DAVID HURLEY
  40. 340  REM TEXT FILES:
  41. 350  REM      NEC PRINTER
  42. 360  REM      H-14 PRINTER
  43. 365  REM      OTHER PRINTER  
  44. 370  REM MODIFIED BY DAVID HURLEY
  45. 380  REM TO WORK WITH
  46. 390  REM FILE CABINET MACH 4         EPSON.                                                                                             
  47. 400  REM FILE CABINET MACH 5     INSTRUCTION BY DAVID HURLEY  
  48. 410  REM ABOVE TEXT FILES 
  49. 420  REM MODIFIED AGAIN BY           DAVID HURLEY TO WORK 
  50. 430  REM WITH FILE CABINET MACH 5    EPSON.  
  51. 500  REM  <<<< INSTRUCTIONS MENU >>>>
  52. 510  TEXT : HOME : VTAB 5
  53. 520  HTAB 5: PRINT "FILE CABINET-PRODOS INSTRUCTIONS": PRINT 
  54. 530  HTAB 10: PRINT "SELECT FROM:": PRINT 
  55. 540  PRINT " 1.  PRODOS VERSION"
  56. 550  PRINT " 2.  MACH 4 VERSION"
  57. 560  PRINT " 3.  MACH 5 VERSION"
  58. 565  PRINT " 4.  RUN FILE CABINET-PRODOS"
  59. 570  PRINT " 5.  FILE CONVERSION (3.3 TO PRODOS)"
  60. 580  PRINT " 6.  QUIT TO STARTUP MENU"
  61. 585  PRINT : PRINT 
  62. 590  HTAB 10: INPUT "ENTER NUMBER OF SELECTION: ";K$
  63. 600 K =  VAL(K$): IF K <1  OR K >6 GOTO 510
  64. 610  ON K GOTO 710,20,120,1210,810,1510
  65. 690 :
  66. 700  REM  << PRODOS VERSION INSTRUCTIONS >>>
  67. 710  TEXT : HOME : PRINT  TAB( 5): PRINT "FILE CABINET-PRODOS VERSION": POKE 34,2: HOME 
  68. 720  PRINT "THE PRODOS VERSION OF FILE CABINET IS   AN ILLUSTRATION OF THE 'CHAIN' FACILITY OF PRODOS -- USING THE FILE CABINET-    MACH 5 AS A BASE.": PRINT 
  69. 730  PRINT "THE ORIGINAL CONCEPT OF FILE CABINET AS ONE LARGE PROGRAM IN MEMORY RESULTED IN A LIMITATION ON THE NUMBER OF RECORDS   WHICH COULD BE ENTERED IN A GIVEN FILE.": PRINT 
  70. 740  PRINT "THE TRADEOFF FOR THE AVAILABLITY OF MORERECORDS IS THE NEED FOR DISK ACCESS WHENA CHANGE OF FUNCTION IS DESIRED. THIS   WOULD BE LESS OF A PROBLEM ON A HARD    DISK SYSTEM.": PRINT 
  71. 750  GOSUB 15: HOME 
  72. 760  PRINT "SOME DIFFERENCES BETWEEN THE PRODOS AND DOS 3.3 OPERATING SYSTEMS REQUIRE       CHANGES IN THE NAMING CONVENTIONS WITH- IN THE PRODOS VERSION.": PRINT 
  73. 770  PRINT "SINCE FILE CABINET USES THE RECORD NAMES AND REPORT NAMES WHEN CREATING  THE    DISK FILE NAMES, CARE MUST BE USED TO   CONFORM WITH PRODOS NAMING RULES.": PRINT 
  74. 780  PRINT "THESE RULES INCLUDE THE REQUIREMENT TO  START NAMES WITH A LETTER  AND TO USE   ONLY LETTERS, NUMERALS AND PERIODS.     NO SPACES ARE PERMITTED. FILE NAMES MUSTBE NO LONGER THAN 15 CHARACTERS,"
  75. 790  PRINT "INCLUDING ANY THAT ARE ASSIGNED BY THE  PROGRAM.": PRINT 
  76. 795  GOSUB 15: GOTO 510
  77. 800  REM  << CONVERT 3.3 TO PRODOS >>
  78. 810  TEXT : HOME : PRINT  TAB( 5): PRINT "CONVERTING 3.3 VERSION TO                       PRODOS VERSION": POKE 34,3: HOME 
  79. 820  PRINT "TO CONVERT FILE NAMES TO THE PRODOS     VERSION- FOLLOW THESE STEPS....": PRINT 
  80. 830  PRINT "   THE DATA BASE NAME 'TEST' WILL BE       USED IN THE EXAMPLES.": PRINT 
  81. 840  PRINT "1.  SELECT A FILE NAME WHICH IS LESS        THAN 10 CHARACTERS IN LENGTH AND        WHICH FITS THE PRODOS REQUIREMENTS.": PRINT 
  82. 850  PRINT "2.  CREATE A DIRECTORY USING THE DATA       BASE NAME - E.G. A DIRECTORY NAMED      'TEST' WOULD BE NEEDED.": PRINT 
  83. 860  PRINT "3.  CONVERT THE 'BASENAMEFILE' TO           'BASENAMES'": PRINT 
  84. 865  GOSUB 15: HOME 
  85. 870  PRINT "4.  CONVERT THE FILE NAMED                      'TEST INDEXFILE'                              TO                                'TEST/INDEX'": PRINT 
  86. 880  PRINT "5.  CONVERT THE FILE NAMED                     'TEST HEADERFILE'                             TO                                'TEST/HEADER'": PRINT 
  87. 890  PRINT "6.  CONVERT ANY REPORT FILE NAMED             'TEST RPTFMTNAMEFILE'                         TO                                'TEST/RPTFMTNAME'": PRINT 
  88. 895  GOSUB 15: HOME 
  89. 900  PRINT "7.  CONVERT ANY REPORT FILE FOR A           SPECIFIC REPORT FORMAT ('PRINT'         WILL BE USED IN THIS EXAMPLE."
  90. 910  PRINT "      'TEST PRINT RPTFMTFILE'                          TO                             'TEST/RPTFMTPRINT'": PRINT : PRINT : PRINT : PRINT 
  91. 920  PRINT "     STEP 2 AND STEPS 4 TO 7 WILL BE         NEEDED FOR EACH DATA BASE THAT          IS LISTED IN THE ORIGINAL                  'BASENAMEFILE'.": PRINT 
  92. 930  GOSUB 15: GOTO 510
  93. 1200  REM   <<< RUN FILE CABINET >>>
  94. 1210  PRINT D$;"RUN MAIN"
  95. 1500  REM    <<< RETURN TO STARTUP >>>
  96. 1510  PRINT D$;"RUN STARTUP"